Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/ISSUE21/TIPTRIX/LISTING1.PAS

Pascal/Delphi Source File | 1997-04-16 | 324 b | 14 lines

begin
 if FControl.Parent <> nil then begin
   wnd := FControl.Parent.Handle;
   Result := S_OK;
 end else if (FControl.Owner <> nil) and
   (FControl.Owner is TWinControl) then begin
   wnd := TWinControl(FControl.Owner).Handle;
   Result := S_OK;
 end else begin
   wnd := 0;
   Result := E_FAIL;
 end;
end;